home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / PRG-64.ARC / PGM DEMO 3 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.2 KB  |  41 lines
  1. 10 POKE53280,0:POKE53281,0
  2. 20 BA=32768+4*256
  3. 30 SYSBA+6,57344,52224:SYSBA
  4. 40 SYSBA+24
  5. 50 SYSBA+12,49152,"ARROW":REM LOAD SPRT
  6. 60 SYSBA+39,0,0,0,"[144][147]"
  7. 62 SYSBA+39,55296,2,2,"[208]RESS [198]7 FOR HELP"
  8. 64 GET KE$:IFKE$=""THEN64
  9. 66 SYSBA+39,0,0,0,"[144][147]"
  10. 68 IF KE$="[136]"THEN GOSUB 250
  11. 70 SYSBA+84,0,0,0,0,0,1:REM SPRT DEFIN
  12. 80 SYSBA+87,0,160,100,0:REM SPRT PLOT
  13. 90 SYSBA+81,1,0:X1=136:Y1=50:FL=1:CO=1
  14. 100 SYSBA+105,0,1:PRINT""
  15. 110 GET KE$:IFKE$="[133]"THENFL=FL*-1:KE$="":X1=X2:Y1=Y2
  16. 120 IF KE$=""THEN SYSBA+39,55296,0,0,"[144][144][147]"
  17. 130 IF KE$="[134]"THEN CO=CO+1:KE$="":IF CO>15THEN CO=1
  18. 140 IF KE$="[135]"THEN SYSBA+66,X2,Y2,CO,0:KE$=""
  19. 150 IF KE$="[136]"THEN GOSUB 250:KE$=""
  20. 160 X2=PEEK(40403)-24:IFPEEK(40405)<>0THENX2=X2+256
  21. 170 Y2=PEEK(40404)-50
  22. 180 IFX2>319THENX2=319
  23. 190 IFX2<0THENX2=0
  24. 200 IFY2>199THENY2=199
  25. 210 IFY2<0THENY2=0
  26. 220 IF FL=-1 THEN 240
  27. 230 SYSBA+60,X1,Y1,X2,Y2,CO,0:X1=X2:Y1=Y2
  28. 240 GOTO110
  29. 250 SYSBA+48,40960,6,10,13,20:REM SAVE WINDOW
  30. 260 SYSBA+117,0,6,10,13,20:REM FILL WINDOW
  31. 270 SYSBA+111,6,10,13,20,5,1:REM COLOR WINDOW
  32. 280 SYSBA+39,55296,7,12,"    [200][197][204][208] [205][197][206][213]"
  33. 290 SYSBA+39,55296,9,12,"F1  DRAW ON/OFF"
  34. 300 SYSBA+39,55296,11,12,"F3  CHANGE COLOR"
  35. 310 SYSBA+39,55296,13,12,"F5  FILL"
  36. 320 SYSBA+39,55296,15,12,"F7  HELP"
  37. 330 SYSBA+39,55296,17,11,"HOME CLEAR"
  38. 340 GETKK$:IF KK$=""THEN 340
  39. 350 SYS BA+51,40960,6,10
  40. 360 RETURN
  41.